home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / mg / rexx / point.mg < prev    next >
Text File  |  1995-03-09  |  727b  |  24 lines
  1. /* exercise the rexx-point & rexx-mark commands */
  2.  
  3. options failat 2
  4.  
  5. 'rexx-point' point
  6. 'rexx-mark' mark
  7. 'end-of-buffer'
  8. 'rexx-insert "*** point ***\n"'
  9. 'rexx-insert' """we got" point.0 "items\n"""
  10. 'rexx-insert' """point is on line" point.1 "like so\n"""
  11. 'rexx-insert' '"'point.3'\n"'
  12. if point.2 = 1 then 'rexx-insert "|\n"'
  13. else 'rexx-insert' '"' || copies(" ", point.2 - 1) || '|\n"'
  14. if mark.0 = 0 then 'rexx-insert' """There is no mark\n"
  15. else do
  16.     'rexx-insert "*** mark ***\n"'
  17.     'rexx-insert' """we got" mark.0 "items\n"""
  18.     'rexx-insert' """mark is on line" mark.1 "like so\n"""
  19.     'rexx-insert' '"'mark.3'\n"'
  20.     if mark.2 = 1 then 'rexx-insert "|\n"'
  21.     else 'rexx-insert' '"' || copies(" ", mark.2 - 1) || '|\n"'
  22.     end
  23. exit 0
  24.